FUNCTION SrchSpTabK Logical Block : 3 BVTES { IrC.E ) 

BJockType : 3 BITS { ?r8/blts 3:1 
PhysiccilBlock : 3 BVTES { !rC:E > 
Status : BVTE { !rO > 
ElementPtr : BYTE { !r1 } 
FUNCTION GetNewSpareC B I ockNumber : 3 BVTES { !rC:E > 



.DO External 
.LSTON 
Page 

>>>>>>>>>>>>:>>:>>>>>>>>>>>>>>>>>>>> 
> 

> Nodule; Spare 1 { a continuation of Spare } 

> 
> 

> 
> 
> 
> 
> 
> 
> 

> 
> 
> 

> > 
> 

; > > > > > >>>>>>>>>>>>>>>>>> > >>>>>>>> > 
.LSTOFF 
.FIN 

•DO External 

.LSTON 

.Page 

>>:>>>>>>.v >>>>>>>>>>>>>> >>>>>>>> 
> 

Function: SrchSpTabI { Search Spare Table ) 



BVTE { !rO 



PROCEDURE flddSpare< BlockType 

SpareType 
Location 



3 BITS i !r8/bits 3 
BIT { !r8/bit 4 > 
BVTE { IrF } 



1 > 



Logic-alBlock : 3 BVTES { !rC:E } 



PROCEDURE De!eteSpare< Location : BVTE 

LogicalBlock : ^ 



{ !rF 
I BVTEJ 



> 



!rC:E > 



This function is responsible for checking to see if the 
block number that is passed into it is currently in the 
spare table. If the block is found to be In the spare table 
then the physical block number of the spare block is passed 
back to the caller^ as uiell as the PTR to the location of 
spared b I ock ' s e I emen t w i th i n the spare tab I e . In any case 
a byte of status is always passed back to the caller describing 
the state of the logical block within the spare table. 



Inputs 



Outputs : 



LoqicalBlockNumber: 3 BVTES { !rC, !rD, IrE > 
ElementType : BVTE < IrF > 

SrchSpTabI : BOOLEAN { zero flag set if not found in table } 



Phys ! ca I B I ockNumber 

Status 

ElementPtr 



3 BVTES { IrC, IrD, 
1 BS'TE { IrO > 
1 BVTE { !rt } 



IrE 



Local Uar fables: 
HeadPtr 
Ptr 
Found 

fl I Qor i thffi : 



1 BVTE { IrO } 

1 BVTE { IrO, offset, 

1 BVTE { Ir? > 



!!r8. actual Ptr } 



BEGIN 
CASE DiskCapacity OF 



10NB: k 
20NB: k 
40MB: k 



= 256; m := 255 
= 128; m := 512 
=64; m := 1024 



> HeadPtr := 6et_HeadPtr 

> IF HeadPtr.Nil 

> THEN Phys i ca I B I ockNumber := Log i ca I B I ockNuinber + 

> Log i ca I B I ockNumber DIU k 

> ELSE 

> Ptr := HeadPtr. Ptr 

> Ptr := Ptr * 4 { ca!c offset into spare table ) 

> Done := False 

> Found := False 

> WHILE NOT<: Done > DO 

> IF < PtrMJsed > RND < Ptr^ Useable > fiND 

> < Ptr*. Type = ElementType > AND 

> i Ptr ".Token = Loq i ca I B I ockNurober /b i ts 0:9 > 

> THEN 

> Phys i ca I B ! ock := < Ptr'" .Location ) * m 

> Done := True 

> Found := True 

> ELSE 

> Ptr := < Ptr" .Ptr > * 4 

> IF Ptr^.NI I 

THEN Done := True 

> Status := Ptr*. Status 

> EfementPtr := Ptr 

> IF NOTC Found > THEN SrchSpTable := False 



; > END 

>>>>>>>>>>>>>>>>>>>>> >>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTOr^ 

. Page 

.FIN 

SrchSpTabl : 



Cal 1 


6et_HeadPtr 




Jr 


2,NotlnTabl 




Clr 


!r7 


j Found := False 


Ld 


ScrReql. !rO 


;save current ptr 


Call 


Get_Ptr' 




Lde 


!r1,?! !r2 


;get element status 


Ld 


ScrRegO. !r1 


;save element. status 


Tm 


!r1,#Used 


; IF Used 


Jr 


Z^SrchLpElse 




Tm 


1 r 1 , *Useab f e 


; fiND Useable 


Jr 


Z.SrchLpElse 




Ld 


IrO, Data-Type 




Tm 


IrlJrO 


;fiND Type is correct 


Jr 


Z^SrchLpElse 








AND C Token = 


1 new 


I !r2 




Lde 


!r1,g!!r2 




find 


Ir1,«$03 


; Log i ca I B 1 ockNumber /h i ts 


Ld 


!rO, !rD 




find 


Ir0,«03 




Cp 


IrOJrl 




Jr 


Nz . SrchLpE I se 




Incm 


I!r2 


; point to bits 0:7 of token 


Lde 


!rO,§l Ir2 




Cp 


!rO, !rE 





Src-h_Spare: 



SrchLpE I se : 



NotlnTabl : 
Srch_Sp t : 



D i v3 Jk_Lp : 



Jr 


Nz J SrchLpE Ise 




Tm 


ScrRegO^ *Spare ; check i f BadB 1 ock 


'Jt 


NZj,SrchJSpare 




Or 


!r7^*Foijnd 




Jr 


Srch_Sp1 




i ri 

Lu 


!rO.ScrReg1 




!nc 


! rO ; number spare b 1 ocks 1 . . 76 


M, , 1 on rr, 

1 lU 1 nU-Jii 






L- 1 r 


IrE ; Result 


:= IrO * 256 


Ld 


I r u J : ru 




r- i in. 

L ir 


IrC 




.DO 


W_^Ul ID • W TtLM ID 




niC 


IrE ; Result 


:= Result * 2 


Ric 


IrD 




Din 
h f C 


IrC 




.FIN 






.DO 


l4_40riB 




D i f-. 


IrE ;Result 


:= Result * 2 


RIc 


IrD 




RIc 


IrC 




C ! H 
. r 1 n 






Or 


!r7..*Found 




or 


SrchOone 




Tm 
t Hi 


ScrRegO,»Ni t 


;test if element.Ptr = Hi 1 


Jr- 


Hz, NotlnTabl 




Ld 


lrO,ScrReg1 ;get address to current element 


Cal 1 


6et_Ptr 




Rdd 


Ir3,»3 ; point 


to next Ptr 


ftdc 


Ir2.«0 




Lde 


IrO,?} !r2 




Jr 


SrchLp 




C!r 


!r7 


; return !1ot_Found status 


Ld 


ScrRegO, IrD 




Diu3_k ***** 




Ld 


Ir2, IrD 


;3hift right 1 byte 


Ld 


Irl, IrC 




CIr 


irO 




.00 


M_20MB 




Ld 


IrF, 1 


;shift left once for DIU 128 


-FIM 






-DO 


M_40MB 




Ld 


lrF,2 


; Shi ft left twice for DIU 54 


.FIN 




.00 


W_20riB + W_40riB 




Ld 


!r3. IrE 


;shift left 1 bit 


Ric 


Ir3 


;inoMe Ir3 bit 7 into carry flag 


Blc 


Ir2 


; then sh i f t a 1 1 3 bytes 


RIc 


!r1 




RIc 


IrO 




Djnz 


!rF,Diy3_kJ_p 





= Log i cd ! B ! ock + 
LogicafBlock DIU k 



.LSTOFF 

.DO Internal 

-LSTOM 

.FIN 

.DO «_10HB 

Cp IrO/ScrRegD ; check for roll oyer 

.LSTOFF 

.FIN 

.00 W_20MB 

find lr0,«$FE jmask off MOD 512 bits 
find ScrRegD,«$FE 
Cp ! rO . ScrRegD : check for ro 1 1 over 

LSTOFF 
.Fin 

.DO U_20MB 

find irO,«-$FC ;rnask off MOD 512 bits 
find ScrRegD, *$FC 

Cp !rOj,ScrRegO ; check for rollover 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

.FIN 



.Fm 

Add !rE, !r2 ;PhysicalBlock : 

fide !rD, !r1 ; 

fide !rC, !rO 

Ld ! rO, ! rO ; save ro 1 1 over byte 



Jr Z^SrchDone 

fidd !rE.*1 .otherwise account for rollover 

fide !rD>0 

fide lrC,«0 

SrchOone: Or ?r7j, Ir? ;set status 

Ld IrO.ScrRegO ; return status 

Ld Irl.ScrRegl ; return ptr to element 

Jp Bank-Ret 

.LSTOFF 

.00 External 

.LSTON 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
;> Function: GetNewSpare 

;> This function accepts either a physical block number or 
;> a logical block number and returns a one byte index into 
;> the Spare Table's bit map describing the location of the 

;,> block that can be used as a spare. 

• y, 

; > ! nputs : 

]> BlockNufflber : 3 BVTES { IrCiE ) 

- J. 

;> Outputs: 

;> GetNewSpare : BYTE { IrO } 

;> Global Uariables Used: 
;> SpareBitllap 

• > 

:> Local Uariables: 



> Bit 

> Temp 1 

> Tefflp2 

> NoHis 

> NoLos 
> 

> filgorithm: 



ScrRegO 
ScrReg 1 
ScrReg2 
ScrReg3/blt 7 
ScrReg3/bit 5 



> BEGIN 

> Bit := SrchSpTabl Diy k { get physical blocknumber divided by 

> the number of blocks between spares ) 

> IF < SpareBitnapl Bit 1=0 > 

> THEN GetNeuiSpare := Bit 

> ELSE 

> NoHis := False 

> NoLos := False 

> Tempt ■= Bit 

> WHILE NOTC NoHis ) fiND < SpareB i tNap C Tempi 1=1 > DO 

> Tempi := Tempi + 1 

> IF C Tempi >= 75 > THEN NoHis := True 

> Temp2 := Bit 

> WHILE NOT< NoLos > AND < SpareB i tNap [ Temp2 ] = 1 DO 

> Temp2 ;= Temp2 - 1 

> IF < Teiiip2 < > THEN NoLos := True 

> IF < NoHis AND NoLos > 

> THEN RBORT 

> ELSE 

> IF NoHis 

> THEN GetNeuiSpare := Temp2 

> ELSE 

> IF ( Tempi - Bit ) > < Bit - Temp2 ) 

> THEN GetNewSpare := Tefflp2 

> ELSE GetNewSpare := Tempi 



> 



END 

■ yy- yyyyy yy y y y y y y y yyy? '> y y y y 
.LSTQFF 
.FIN 

.DO Internal 

.LSTON 

-Poqe 

.FIN 



GetNewSpare: 



Call ExtPush-Uector ;saue state 

.DO M_10NB 

Ld !r4j,!rD ;Div3J<.^ store result in !r4 
.FIN 

Ld IrD, !r4 

Ld lrC,»TestBitriap 

Call TSC_BitNap ; IF BitNapE Bit 1=0 ... 

Ld !r0^!r4 ; assume Bit is unused 

Jr Z,Gns_£nd ;Jump if THEN 

Ld !r5, !r4 ;ELSE .. 

CIr ir? 

GnsJLpI: Ld IrDj, !r5 ; test for bit map location = 

Ld !rC,«TestBitl1ap 

Call TSC_BitNap 
Jr 6ns J-p lEnd 



Inc IrS ;bump Tempi 

Cp !r5>76 

vJr Lt.GnsJLpI 

Or ?r7,»$80 jMoHls := True 

Gns_Lp1End: Ld !r6, Ir4 

GnsJ_p2: Ld !rD^ !r6 ; test for bit map location = 

Ld !rC,*TestBltnap 

Call TSC_Bitriap 

Jr Z,6ns_Lp2End 

Dec !r5 

Jr Gt,Gns_Lp2 

Or !r7,«$40 ;NoLos := True 

6ns_Lp2End: Tcm lr7,»$C0 ; IF NoHis AND NoLos . . 

Jr Nz,Gns_Chk_Hf 

Ld !rO,«1 ;byte 1 

Ld !r1,«SprBlk_>iard 

Caf ! SetStatus 

Cal I Abort 



GnsjDhi*._Hi : 



Gns_£rfd : 



Ld 

TlTl 

Jr 

Ld 

Jr 

Ld 

Sub 

Sub 

Ld 
Cp 
Jr 
Ld 

Push 
Cal I 
Pop 
Jp 



!rO, Ir6 
Ir7,«$80 
Hz, GnsJEnd 



; assume NoHis 
: test for MoHis 



!rO.. !r5 ; assume fioLos 
lr7.«$40;test for NoLos 
Hz,Gns_End 

{riJ.rS 

!r1.!r4 ; otherwise firid out which is closer 
!r4Jr5 

! rO . ! r6 ; assume Temp2 i s c I oser 

Iri; lr4 

Uge,Gns_End 

I rO J, ! r5 ; o therw i se Temp 1 i s c I oser 
!rO 

ExtPop-Uector 
!rO 

Bcmk-Ret 



LSTOFF 

.DO External 

.LSTON 

-Page 

>>>>>>>>>>>>>>>:>>>>>>>>>>>>>>>> 



Procedure: flddSpare •( add an element to the spare table ) 

This function is responsible for adding an element to the spare 
tab I e . It accepts a 1 byte ya I ue descr i b i ng the I oca t i on m i th i n 
the spare tab fa { it is assumed that the caller has already used 
OetHewSpare > as well as the LogicalBlockMumber and whether the 
block being added to the table is a Spare block or a Bad Block. 



Inputs: 



B I ockType 
SpareType 
Location 



3 BITS { IrS/bits 3: 1 ) 
BOOLEflM { !r8/bit 4 > 
BVTE { !rF ) 




LogicQlBlockMumber: 3 BVTES { !rC, !rD, !rE > 

Outputs: { none ) 

Local Uariables: 

HeadPtr : 1 BYTE { \rO } 

Ptr : 1 BVTE { !rO, offset; ! !r8, actual Ptr } 

Global Uariables Changed: 
SpareCount 

fl I gor I thffi : 

BEGIN 

HeadPtr := Get_HeadPtr< Log i ca I B I ockNumber > 
IF HeadPtr. Ni I 
THEN 

HeadPtr. Nil := False 
HeadPtr. Ptr := Location 

SegPtrRrraqC LogfcalBlockNumber/bi ts 10:15 1 := HeadPtr 

ELSE 

Ptr := HeadPtr. Ptr 

Ptr := Get_EoList< Ptr > 

Ptr-\Hi f := Falsa 

Ptr ".Ptr := Location 
Ptr := Get_Ptr< Location > 
Ptr" .Nil := True 
Ptr ".Used := True 
Ptr*. Useable := True 
Ptr \ Spare := Spare 
Ptr ".Type := SpareType 

P tr " . Token : = Log i ca I B I ockNumber /b its 0:9 

TCS_Bitl1ap< Set^ Location > { set the bit snap location for the add > 
IF < SpareType = Spare > 

THEN SpareCount := SpareCount + 1 

ELSE BadCount := BadCount + 1 



.FIN 

.DO Internal 
LSTOr^ 
.Page 
.FIN 




flddSpare: 



Cal I 
Jr 



6et_HeadPtr 
Nz,flDS_Else1 



; IF HeadPtr. Ni 1 



find 
Or 
Lde 
Jr 



!rO.«$FF-Ni I 
!rO, IrF 
i ! I r2 . ! rO 
flOSJlJpDate 



;THEN HeadPt.Ni I := False 

; HeadPtr. Ptr := Location 

; create link 



RDS_Else1: 



Cal I 

find 

Lde 



6et_£oList 
?rt,*$FF-Ni I 
§!!r2,lr1 



; search 'til end of 1 ist 
;Ptr".N! 1 := False 
; update table 



Add 
fide 
Lde 



!r3,»3 
lr2,«0 



jget Ptr*. Ptr 



§! !r2, !rF 



; create I ink 



flDSJUpDate: 



Ld 
Call 



Get_Ptr 



;get structure ptr 

; create a real ptr out of it 



Ld ! rO , »ri j I +Used+Useab I e 

Or !rO, IrS ; merge Spare /Bad Block /Type Info 

Or ! rO , Da ta_Ty pe 

Lde §[lr2, !rO 

I new !!r2 

Ld !rO, «rD 

find !r0,#$03 

Lde §!!r2, !rO 

Incuj !!r2 

Lde e!lr2, !rE 

Ld !rC,«SetBitl1ap 

Ld !rD, frF 

Call TSC_Bitriap 

Jp Bank_Ret 

.LSTOFF 

-DO External 
.LSTOH 
.Page 

•>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> Procedure: DeleteSpare { add an element to the spare table } 

• > 

;> This function is responsible for deleting an element from the spare 

;> table. It accepts a 1 byte value describing the location uiith in 

;> the spare table { it is assumed that the caller has already used 

;> GetNewSpare } as well as the LogicalBlockNumber. 

• > 

;> Inputs: 

;> Location : BVTE { IrF } 

;> LogicalBlockNumber: 3 BVTES { frC, IrD, IrE > 

;> Outputs: { rione ) 

;> Local Variables: 

;> Ptr 1\ Status : BVTE { ScrRegF > 

;> Global Variables Changed: 

; > SpareCount 

; > fligori tNri: 

; > 

;> BEGIN 

;> Location := SrchSpTabK Load-Logical > 

;> IF NOT< SrchSpTabI .Found > THEN Abort 

;> IF < Get_Head< LogicalBlockNumber >.Ptr = Location > 

;> THEN Head. Nil = True 

;> ELSE 

; > Ptr t : = Get_Ptr< Locat i on > 

;> if (. Ptr1\Ni I = True > 

i> THEN Ptr< PreviousEleffient >''.Nil = True 

; > ELSE Ptr< PreMiousElement >\Ptr = Ptr T .Ptr 

:> Zero Out the Deleted Element 

;> TCS_£itNap< Clear, Location ) { free up the bit map location } 

; > END 

• y 

; :^ >>>>>>>>>>>>>>>>>>>>>>>>>>>>> > 
.LSTOFF 
.FIN 



; point to element. Hi Token 
jget Hi Token 



; point to element.LoToken 
; store LoToken 



; update the bit map 



DeleteSpare: 



Chk_HdPtr: 



ChkJChctm: 



DJ:.hk_E}se: 



Get_Prayious; 



.DO 


Internal 


. LbTOn 




. Page 




-FIH 




Ca! I 


Load_Log i ca 1 


Cal i 


SrchSpTab 1 


LO 


i ir.C i l-. i 

! r r ^ : 1^ f 


Jr 


fiz,L-hk_iidPtr 


Cai I 


HDori 


Cal i 


Load_Log i ca 1 


Cal 1 


Get_HeadPtr 


Ld 


ScrRegE^ !rO 


Ld 


irO. ?rF 


Call 


GetlPtr 


Lde 


!rO,&l ?r2 


Tm 


!rOj,*ril 1 


Jr 


i.ChkJCham 


Cp 


ScrReqEj, frF 


Jr 


N2,Chk_Chain 


uQi ! 


uex_jieaur ir 


Ld 


i and HhJ : 1 


Lde 


!r2, IrO 


Jr 


ZeroJEIement 


Ld 


ScrRegF, !rO 


Or 


!rO,»Nil 


Lde 


ff! !ri, :ru 


Ld 


!rUjbcrKegt 


Lai I 


Get_EoL J st 


Ld 


IrO.ScrRegF 


Tm 


!rO.*Hi I 


Ld 


!r2,ScrRegO 


Ld 


IrS^ScrRegl 


Jr 


Z,D_Chk_Else 


Lde 


I .-ft Ail ~ O 

iru .Bf! irj; 


Or 


!rO^»Hi 1 


Lde 


©1 !r2^ irO 


Jr 


Zero_Eieroent 


Cp 


IrF^ScrRegE 


Jr 


Nz . Ge t_PreM i ous 


Cal 1 


betJieadPtr 


Jr 


Saye_PreM i ous 


v-% J _l 

fidd 


!r3j*3 


Rdc 


!r2,*0 


Push 


!r2 


Push 


lr3 


Ld 


IrOJrF 


Cal I 


Get_Plr 


Rdd 


!r3,»3 


fide 


Ir2.«0 


Lde 


!r0.§!!r2 



; IF < 6et_HeadPtr.. . ) 



;ELSE 



;THEN Head. Hi I := True 



: break the chain 



;get Ptr< Previous > in ScrRegO.. t 

get original status back 
IF Ptr1\Hi I 
;get Ptr< Prey i ous > 

: ELSE... 



:Qet to Ptr< Previous >'.Ptr 



;qet to Ptrr.Ptr 



pop ! rs 

Pop !r2 

Lde § ! ! r-2, ! rO ; Ptr< Prey i ous . P tr : = Ptr 1 " . Ptr 

Zaro-Eiemsnt: Ld !r-0^!rF ;get Ptrl once more 

Cal I Get_Ptr 

Ld ! rO, «$FF ; i n i 1 1 a 1 e e { ement 

Ld !ri,*4 ;zero 4 bytes 

Zero_E_Lp: Lde §! !r2JrO 

t new ! I r2 

D j nz ! r 1 . Zero_E_Lp 

Ld {rC.«ClearBitl1ap 

Ld IrD, !rF 

Call TSC_Bitriap 

Jp Bank_Ret 



.LSTOFF 



